home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / unix / volume9 / uemacs3.8b / part04 < prev    next >
Encoding:
Internet Message Format  |  1987-03-12  |  47.6 KB
  1. Subject:  v09i036:  MicroEMACS, version 3.8b, Part04/14
  2. Newsgroups: mod.sources
  3. Approved: rs@mirror.TMC.COM
  4.  
  5. Submitted by: ihnp4!itivax!duncan!lawrence (Daniel Lawrence)
  6. Mod.sources: Volume 9, Issue 36
  7. Archive-name: uemacs3.8b/Part04
  8.  
  9. #! /bin/sh
  10. # This is a shell archive.  Remove anything before this line,
  11. # then unpack it by saving it in a file and typing "sh file".
  12. # If this archive is complete, you will see the message:
  13. #        "End of archive 4 (of 14)."
  14. # Contents:  ebind.h eval.c menu.cmd st520.c
  15. # Wrapped by rs@mirror on Fri Mar 13 13:23:45 1987
  16. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  17. echo shar: Extracting \"ebind.h\" \(11355 characters\)
  18. if test -f ebind.h ; then 
  19.   echo shar: Will not over-write existing file \"ebind.h\"
  20. else
  21. sed "s/^X//" >ebind.h <<'END_OF_ebind.h'
  22. X/*    EBIND:        Initial default key to function bindings for
  23. X            MicroEMACS 3.7
  24. X*/
  25. X
  26. X/*
  27. X * Command table.
  28. X * This table  is *roughly* in ASCII order, left to right across the
  29. X * characters of the command. This expains the funny location of the
  30. X * control-X commands.
  31. X */
  32. XKEYTAB  keytab[NBINDS] = {
  33. X    {CTRL|'A',        gotobol},
  34. X    {CTRL|'B',        backchar},
  35. X    {CTRL|'C',        insspace},
  36. X    {CTRL|'D',        forwdel},
  37. X    {CTRL|'E',        gotoeol},
  38. X    {CTRL|'F',        forwchar},
  39. X    {CTRL|'G',        ctrlg},
  40. X    {CTRL|'H',        backdel},
  41. X    {CTRL|'I',        tab},
  42. X    {CTRL|'J',        indent},
  43. X    {CTRL|'K',        killtext},
  44. X    {CTRL|'L',        refresh},
  45. X    {CTRL|'M',        newline},
  46. X    {CTRL|'N',        forwline},
  47. X    {CTRL|'O',        openline},
  48. X    {CTRL|'P',        backline},
  49. X    {CTRL|'Q',        quote},
  50. X    {CTRL|'R',        backsearch},
  51. X    {CTRL|'S',        forwsearch},
  52. X    {CTRL|'T',        twiddle},
  53. X    {CTRL|'U',        unarg},
  54. X    {CTRL|'V',        forwpage},
  55. X    {CTRL|'W',        killregion},
  56. X    {CTRL|'X',        cex},
  57. X    {CTRL|'Y',        yank},
  58. X    {CTRL|'Z',        backpage},
  59. X    {CTRL|']',        meta},
  60. X    {CTLX|CTRL|'B',        listbuffers},
  61. X    {CTLX|CTRL|'C',        quit},          /* Hard quit.           */
  62. X    {CTLX|CTRL|'F',        filefind},
  63. X    {CTLX|CTRL|'I',        insfile},
  64. X    {CTLX|CTRL|'L',        lowerregion},
  65. X    {CTLX|CTRL|'M',        delmode},
  66. X    {CTLX|CTRL|'N',        mvdnwind},
  67. X    {CTLX|CTRL|'O',        deblank},
  68. X    {CTLX|CTRL|'P',        mvupwind},
  69. X    {CTLX|CTRL|'R',        fileread},
  70. X    {CTLX|CTRL|'S',        filesave},
  71. X    {CTLX|CTRL|'U',        upperregion},
  72. X    {CTLX|CTRL|'V',        viewfile},
  73. X    {CTLX|CTRL|'W',        filewrite},
  74. X    {CTLX|CTRL|'X',        swapmark},
  75. X    {CTLX|CTRL|'Z',        shrinkwind},
  76. X    {CTLX|'?',        deskey},
  77. X    {CTLX|'!',        spawn},
  78. X    {CTLX|'@',        pipe},
  79. X    {CTLX|'#',        filter},
  80. X    {CTLX|'=',        showcpos},
  81. X    {CTLX|'(',        ctlxlp},
  82. X    {CTLX|')',        ctlxrp},
  83. X    {CTLX|'^',        enlargewind},
  84. X    {CTLX|'0',        delwind},
  85. X    {CTLX|'1',        onlywind},
  86. X    {CTLX|'2',        splitwind},
  87. X    {CTLX|'A',        setvar},
  88. X    {CTLX|'B',        usebuffer},
  89. X    {CTLX|'C',        spawncli},
  90. X#if    BSD
  91. X    {CTLX|'D',        bktoshell},
  92. X#endif
  93. X    {CTLX|'E',        ctlxe},
  94. X    {CTLX|'F',        setfillcol},
  95. X    {CTLX|'K',        killbuffer},
  96. X    {CTLX|'M',        setmode},
  97. X    {CTLX|'N',        filename},
  98. X    {CTLX|'O',        nextwind},
  99. X    {CTLX|'P',        prevwind},
  100. X#if    ISRCH
  101. X    {CTLX|'R',        risearch},
  102. X    {CTLX|'S',        fisearch},
  103. X#endif
  104. X    {CTLX|'W',        resize},
  105. X    {CTLX|'X',        nextbuffer},
  106. X    {CTLX|'Z',        enlargewind},
  107. X#if    WORDPRO
  108. X    {META|CTRL|'C',        wordcount},
  109. X#endif
  110. X#if    CFENCE
  111. X    {META|CTRL|'F',        getfence},
  112. X#endif
  113. X    {META|CTRL|'H',        delbword},
  114. X    {META|CTRL|'K',        unbindkey},
  115. X    {META|CTRL|'L',        reposition},
  116. X    {META|CTRL|'M',        delgmode},
  117. X    {META|CTRL|'N',        namebuffer},
  118. X    {META|CTRL|'R',        qreplace},
  119. X    {META|CTRL|'S',        newsize},
  120. X    {META|CTRL|'T',        newwidth},
  121. X    {META|CTRL|'V',        scrnextdw},
  122. X#if    WORDPRO
  123. X    {META|CTRL|'W',        killpara},
  124. X#endif
  125. X    {META|CTRL|'Z',        scrnextup},
  126. X    {META|' ',        setmark},
  127. X    {META|'?',        help},
  128. X    {META|'!',        reposition},
  129. X    {META|'.',        setmark},
  130. X    {META|'>',        gotoeob},
  131. X    {META|'<',        gotobob},
  132. X    {META|'~',        unmark},
  133. X#if    APROP
  134. X    {META|'A',        apro},
  135. X#endif
  136. X    {META|'B',        backword},
  137. X    {META|'C',        capword},
  138. X    {META|'D',        delfword},
  139. X#if    CRYPT
  140. X    {META|'E',        setkey},
  141. X#endif
  142. X    {META|'F',        forwword},
  143. X    {META|'G',        gotoline},
  144. X    {META|'K',        bindtokey},
  145. X    {META|'L',        lowerword},
  146. X    {META|'M',        setgmode},
  147. X#if    WORDPRO
  148. X    {META|'N',        gotoeop},
  149. X    {META|'P',        gotobop},
  150. X    {META|'Q',        fillpara},
  151. X#endif
  152. X    {META|'R',        sreplace},
  153. X#if    BSD
  154. X    {META|'S',        bktoshell},
  155. X#endif
  156. X    {META|'U',        upperword},
  157. X    {META|'V',        backpage},
  158. X    {META|'W',        copyregion},
  159. X    {META|'X',        namedcmd},
  160. X    {META|'Z',        quickexit},
  161. X    {META|0x7F,              delbword},
  162. X
  163. X#if    MSDOS & (HP150 == 0) & (WANGPC == 0) & (HP110 == 0)
  164. X    {SPEC|CTRL|'_',        forwhunt},
  165. X    {SPEC|CTRL|'S',        backhunt},
  166. X    {SPEC|71,        gotobob},
  167. X    {SPEC|72,        backline},
  168. X    {SPEC|73,        backpage},
  169. X    {SPEC|75,        backchar},
  170. X    {SPEC|77,        forwchar},
  171. X    {SPEC|79,        gotoeob},
  172. X    {SPEC|80,        forwline},
  173. X    {SPEC|81,        forwpage},
  174. X    {SPEC|82,        insspace},
  175. X    {SPEC|83,        forwdel},
  176. X    {SPEC|115,        backword},
  177. X    {SPEC|116,        forwword},
  178. X#if    WORDPRO
  179. X    {SPEC|132,        gotobop},
  180. X    {SPEC|118,        gotoeop},
  181. X#endif
  182. X    {SPEC|84,        cbuf1},
  183. X    {SPEC|85,        cbuf2},
  184. X    {SPEC|86,        cbuf3},
  185. X    {SPEC|87,        cbuf4},
  186. X    {SPEC|88,        cbuf5},
  187. X    {SPEC|89,        cbuf6},
  188. X    {SPEC|90,        cbuf7},
  189. X    {SPEC|91,        cbuf8},
  190. X    {SPEC|92,        cbuf9},
  191. X    {SPEC|93,        cbuf10},
  192. X#endif
  193. X
  194. X#if    HP150
  195. X    {SPEC|32,        backline},
  196. X    {SPEC|33,        forwline},
  197. X    {SPEC|35,        backchar},
  198. X    {SPEC|34,        forwchar},
  199. X    {SPEC|44,        gotobob},
  200. X    {SPEC|46,        forwpage},
  201. X    {SPEC|47,        backpage},
  202. X    {SPEC|82,        nextwind},
  203. X    {SPEC|68,        openline},
  204. X    {SPEC|69,        killtext},
  205. X    {SPEC|65,        forwdel},
  206. X    {SPEC|64,        ctlxe},
  207. X    {SPEC|67,        refresh},
  208. X    {SPEC|66,        reposition},
  209. X    {SPEC|83,        help},
  210. X    {SPEC|81,        deskey},
  211. X#endif
  212. X
  213. X#if    HP110
  214. X    {SPEC|0x4b,        backchar},
  215. X    {SPEC|0x4d,        forwchar},
  216. X    {SPEC|0x48,        backline},
  217. X    {SPEC|0x50,        forwline},
  218. X    {SPEC|0x43,        help},
  219. X    {SPEC|0x73,        backword},
  220. X    {SPEC|0x74,        forwword},
  221. X    {SPEC|0x49,        backpage},
  222. X    {SPEC|0x51,        forwpage},
  223. X    {SPEC|84,        cbuf1},
  224. X    {SPEC|85,        cbuf2},
  225. X    {SPEC|86,        cbuf3},
  226. X    {SPEC|87,        cbuf4},
  227. X    {SPEC|88,        cbuf5},
  228. X    {SPEC|89,        cbuf6},
  229. X    {SPEC|90,        cbuf7},
  230. X    {SPEC|91,        cbuf8},
  231. X#endif
  232. X
  233. X#if    AMIGA
  234. X    {SPEC|'?',        help},
  235. X    {SPEC|'A',        backline},
  236. X    {SPEC|'B',        forwline},
  237. X    {SPEC|'C',        forwchar},
  238. X    {SPEC|'D',        backchar},
  239. X    {SPEC|'T',        backpage},
  240. X    {SPEC|'S',        forwpage},
  241. X    {SPEC|'a',        backword},
  242. X    {SPEC|'`',        forwword},
  243. X    {SPEC|'P',        cbuf1},
  244. X    {SPEC|'Q',        cbuf2},
  245. X    {SPEC|'R',        cbuf3},
  246. X    {SPEC|'S',        cbuf4},
  247. X    {SPEC|'T',        cbuf5},
  248. X    {SPEC|'U',        cbuf6},
  249. X    {SPEC|'V',        cbuf7},
  250. X    {SPEC|'W',        cbuf8},
  251. X    {SPEC|'X',        cbuf9},
  252. X    {SPEC|'Y',        cbuf10},
  253. X
  254. X#endif
  255. X
  256. X#if    ST520
  257. X    {SPEC|'?',        help},
  258. X    {SPEC|'A',        backline},
  259. X    {SPEC|'B',        forwline},
  260. X    {SPEC|'C',        forwchar},
  261. X    {SPEC|'D',        backchar},
  262. X    {SPEC|'T',        backpage},
  263. X    {SPEC|'S',        forwpage},
  264. X    {SPEC|'a',        backword},
  265. X    {SPEC|'`',        forwword},
  266. X    {SPEC|'P',        cbuf1},
  267. X    {SPEC|'Q',        cbuf2},
  268. X    {SPEC|'R',        cbuf3},
  269. X    {SPEC|'S',        cbuf4},
  270. X    {SPEC|'T',        cbuf5},
  271. X    {SPEC|'U',        cbuf6},
  272. X    {SPEC|'V',        cbuf7},
  273. X    {SPEC|'W',        cbuf8},
  274. X    {SPEC|'X',        cbuf9},
  275. X    {SPEC|'Y',        cbuf10},
  276. X
  277. X#endif
  278. X
  279. X#if  WANGPC
  280. X    SPEC|0xE0,              quit,           /* Cancel */
  281. X    SPEC|0xE1,              help,           /* Help */
  282. X    SPEC|0xF1,              help,           /* ^Help */
  283. X    SPEC|0xE3,              ctrlg,          /* Print */
  284. X    SPEC|0xF3,              ctrlg,          /* ^Print */
  285. X    SPEC|0xC0,              backline,       /* North */
  286. X    SPEC|0xD0,              gotobob,        /* ^North */
  287. X    SPEC|0xC1,              forwchar,       /* East */
  288. X    SPEC|0xD1,              gotoeol,        /* ^East */
  289. X    SPEC|0xC2,              forwline,       /* South */
  290. X    SPEC|0xD2,              gotobop,        /* ^South */
  291. X    SPEC|0xC3,              backchar,       /* West */
  292. X    SPEC|0xD3,              gotobol,        /* ^West */
  293. X    SPEC|0xC4,              ctrlg,          /* Home */
  294. X    SPEC|0xD4,              gotobob,        /* ^Home */
  295. X    SPEC|0xC5,              filesave,       /* Execute */
  296. X    SPEC|0xD5,              ctrlg,          /* ^Execute */
  297. X    SPEC|0xC6,              insfile,        /* Insert */
  298. X    SPEC|0xD6,              ctrlg,          /* ^Insert */
  299. X    SPEC|0xC7,              forwdel,        /* Delete */
  300. X    SPEC|0xD7,              killregion,     /* ^Delete */
  301. X    SPEC|0xC8,              backpage,       /* Previous */
  302. X    SPEC|0xD8,              prevwind,       /* ^Previous */
  303. X    SPEC|0xC9,              forwpage,       /* Next */
  304. X    SPEC|0xD9,              nextwind,       /* ^Next */
  305. X    SPEC|0xCB,              ctrlg,          /* Erase */
  306. X    SPEC|0xDB,              ctrlg,          /* ^Erase */
  307. X    SPEC|0xDC,              ctrlg,          /* ^Tab */
  308. X    SPEC|0xCD,              ctrlg,          /* BackTab */
  309. X    SPEC|0xDD,              ctrlg,          /* ^BackTab */
  310. X    SPEC|0x80,              ctrlg,          /* Indent */
  311. X    SPEC|0x90,              ctrlg,          /* ^Indent */
  312. X    SPEC|0x81,              ctrlg,          /* Page */
  313. X    SPEC|0x91,              ctrlg,          /* ^Page */
  314. X    SPEC|0x82,              ctrlg,          /* Center */
  315. X    SPEC|0x92,              ctrlg,          /* ^Center */
  316. X    SPEC|0x83,              ctrlg,          /* DecTab */
  317. X    SPEC|0x93,              ctrlg,          /* ^DecTab */
  318. X    SPEC|0x84,              ctrlg,          /* Format */
  319. X    SPEC|0x94,              ctrlg,          /* ^Format */
  320. X    SPEC|0x85,              ctrlg,          /* Merge */
  321. X    SPEC|0x95,              ctrlg,          /* ^Merge */
  322. X    SPEC|0x86,              setmark,        /* Note */
  323. X    SPEC|0x96,              ctrlg,          /* ^Note */
  324. X    SPEC|0x87,              ctrlg,          /* Stop */
  325. X    SPEC|0x97,              ctrlg,          /* ^Stop */
  326. X    SPEC|0x88,              forwsearch,     /* Srch */
  327. X    SPEC|0x98,              backsearch,     /* ^Srch */
  328. X    SPEC|0x89,              sreplace,       /* Replac */
  329. X    SPEC|0x99,              qreplace,       /* ^Replac */
  330. X    SPEC|0x8A,              ctrlg,          /* Copy */
  331. X    SPEC|0x9A,              ctrlg,          /* ^Copy */
  332. X    SPEC|0x8B,              ctrlg,          /* Move */
  333. X    SPEC|0x9B,              ctrlg,          /* ^Move */
  334. X    SPEC|0x8C,              namedcmd,       /* Command */
  335. X    SPEC|0x9C,              spawn,          /* ^Command */
  336. X    SPEC|0x8D,              ctrlg,          /* ^ */
  337. X    SPEC|0x9D,              ctrlg,          /* ^^ */
  338. X    SPEC|0x8E,              ctrlg,          /* Blank */
  339. X    SPEC|0x9E,              ctrlg,          /* ^Blank */
  340. X    SPEC|0x8F,              gotoline,       /* GoTo */
  341. X    SPEC|0x9F,              usebuffer,      /* ^GoTo */
  342. X#endif
  343. X 
  344. X    {0x7F,            backdel},
  345. X
  346. X    /* special internal bindings */
  347. X    SPEC|META|'W',        wrapword,    /* called on word wrap */
  348. X
  349. X    {0,            NULL}
  350. X};
  351. X
  352. X#if RAINBOW
  353. X
  354. X#include "rainbow.h"
  355. X
  356. X/*
  357. X * Mapping table from the LK201 function keys to the internal EMACS character.
  358. X */
  359. X
  360. Xshort lk_map[][2] = {
  361. X    Up_Key,                         CTRL+'P',
  362. X    Down_Key,                       CTRL+'N',
  363. X    Left_Key,                       CTRL+'B',
  364. X    Right_Key,                      CTRL+'F',
  365. X    Shift+Left_Key,                 META+'B',
  366. X    Shift+Right_Key,                META+'F',
  367. X    Control+Left_Key,               CTRL+'A',
  368. X    Control+Right_Key,              CTRL+'E',
  369. X    Prev_Scr_Key,                   META+'V',
  370. X    Next_Scr_Key,                   CTRL+'V',
  371. X    Shift+Up_Key,                   META+'<',
  372. X    Shift+Down_Key,                 META+'>',
  373. X    Cancel_Key,                     CTRL+'G',
  374. X    Find_Key,                       CTRL+'S',
  375. X    Shift+Find_Key,                 CTRL+'R',
  376. X    Insert_Key,                     CTRL+'Y',
  377. X    Options_Key,                    CTRL+'D',
  378. X    Shift+Options_Key,              META+'D',
  379. X    Remove_Key,                     CTRL+'W',
  380. X    Shift+Remove_Key,               META+'W',
  381. X    Select_Key,                     CTRL+'@',
  382. X    Shift+Select_Key,               CTLX+CTRL+'X',
  383. X    Interrupt_Key,                  CTRL+'U',
  384. X    Keypad_PF2,                     META+'L',
  385. X    Keypad_PF3,                     META+'C',
  386. X    Keypad_PF4,                     META+'U',
  387. X    Shift+Keypad_PF2,               CTLX+CTRL+'L',
  388. X    Shift+Keypad_PF4,               CTLX+CTRL+'U',
  389. X    Keypad_1,                       CTLX+'1',
  390. X    Keypad_2,                       CTLX+'2',
  391. X    Do_Key,                         CTLX+'E',
  392. X    Keypad_4,                       CTLX+CTRL+'B',
  393. X    Keypad_5,                       CTLX+'B',
  394. X    Keypad_6,                       CTLX+'K',
  395. X    Resume_Key,                     META+'!',
  396. X    Control+Next_Scr_Key,           CTLX+'N',
  397. X    Control+Prev_Scr_Key,           CTLX+'P',
  398. X    Control+Up_Key,                 CTLX+CTRL+'P',
  399. X    Control+Down_Key,               CTLX+CTRL+'N',
  400. X    Help_Key,                       CTLX+'=',
  401. X    Shift+Do_Key,                   CTLX+'(',
  402. X    Control+Do_Key,                 CTLX+')',
  403. X    Keypad_0,                       CTLX+'Z',
  404. X    Shift+Keypad_0,                 CTLX+CTRL+'Z',
  405. X    Main_Scr_Key,                   CTRL+'C',
  406. X    Keypad_Enter,                   CTLX+'!',
  407. X    Exit_Key,                       CTLX+CTRL+'C',
  408. X    Shift+Exit_Key,                 CTRL+'Z'
  409. X};
  410. X
  411. X#define lk_map_size     (sizeof(lk_map)/2)
  412. X#endif
  413. X
  414. END_OF_ebind.h
  415. if test 11355 -ne `wc -c <ebind.h`; then
  416.     echo shar: \"ebind.h\" unpacked with wrong size!
  417. fi
  418. # end of overwriting check
  419. fi
  420. echo shar: Extracting \"eval.c\" \(10700 characters\)
  421. if test -f eval.c ; then 
  422.   echo shar: Will not over-write existing file \"eval.c\"
  423. else
  424. sed "s/^X//" >eval.c <<'END_OF_eval.c'
  425. X/*    EVAL.C:    Expresion evaluation functions for
  426. X        MicroEMACS
  427. X
  428. X    written 1986 by Daniel Lawrence                */
  429. X
  430. X#include    <stdio.h>
  431. X#include    "estruct.h"
  432. X#include    "edef.h"
  433. X#include    "evar.h"
  434. X
  435. X#if    MEGAMAX & ST520
  436. Xoverlay    "eval"
  437. X#endif
  438. X
  439. Xchar value[80];        /* buffer to return value in */
  440. X
  441. Xvarinit()        /* initialize the user variable list */
  442. X
  443. X{
  444. X    register int i;
  445. X
  446. X    for (i=0; i < MAXVARS; i++)
  447. X        uv[i].u_name[0] = 0;
  448. X}
  449. X
  450. Xchar *gtfun(fname)    /* evaluate a function */
  451. X
  452. Xchar *fname;        /* name of function to evaluate */
  453. X
  454. X{
  455. X    register int fnum;        /* index to function to eval */
  456. X    register int status;        /* return status */
  457. X    char arg1[NSTRING];        /* value of first argument */
  458. X    char arg2[NSTRING];        /* value of second argument */
  459. X    char arg3[NSTRING];        /* value of third argument */
  460. X    static char result[2 * NSTRING];    /* string result */
  461. X
  462. X    /* look the function up in the function table */
  463. X    fname[3] = 0;    /* only first 3 chars significant */
  464. X    for (fnum = 0; fnum < NFUNCS; fnum++)
  465. X        if (strcmp(fname, funcs[fnum].f_name) == 0)
  466. X            break;
  467. X
  468. X    /* return errorm on a bad reference */
  469. X    if (fnum == NFUNCS)
  470. X        return(errorm);
  471. X
  472. X    /* retrieve the first argument */
  473. X    if ((status = macarg(arg1)) != TRUE)
  474. X        return(errorm);
  475. X
  476. X    /* if needed, retrieve the second argument */
  477. X    if (funcs[fnum].f_type >= DYNAMIC) {
  478. X        if ((status = macarg(arg2)) != TRUE)
  479. X            return(errorm);
  480. X
  481. X        /* if needed, retrieve the third argument */
  482. X        if (funcs[fnum].f_type >= TRINAMIC)
  483. X            if ((status = macarg(arg3)) != TRUE)
  484. X                return(errorm);
  485. X    }
  486. X
  487. X    /* and now evaluate it! */
  488. X    switch (fnum) {
  489. X        case UFADD:    return(itoa(atoi(arg1) + atoi(arg2)));
  490. X        case UFSUB:    return(itoa(atoi(arg1) - atoi(arg2)));
  491. X        case UFTIMES:    return(itoa(atoi(arg1) * atoi(arg2)));
  492. X        case UFDIV:    return(itoa(atoi(arg1) / atoi(arg2)));
  493. X        case UFMOD:    return(itoa(atoi(arg1) % atoi(arg2)));
  494. X        case UFNEG:    return(itoa(-atoi(arg1)));
  495. X        case UFCAT:    strcpy(result, arg1);
  496. X                return(strcat(result, arg2));
  497. X        case UFLEFT:    return(strncpy(result, arg1, atoi(arg2)));
  498. X        case UFRIGHT:    return(strcpy(result, &arg1[atoi(arg2)-1]));
  499. X        case UFMID:    return(strncpy(result, &arg1[atoi(arg2)-1],
  500. X                    atoi(arg3)));
  501. X        case UFNOT:    return(ltos(stol(arg1) == FALSE));
  502. X        case UFEQUAL:    return(ltos(atoi(arg1) == atoi(arg2)));
  503. X        case UFLESS:    return(ltos(atoi(arg1) < atoi(arg2)));
  504. X        case UFGREATER:    return(ltos(atoi(arg1) > atoi(arg2)));
  505. X        case UFSEQUAL:    return(ltos(strcmp(arg1, arg2) == 0));
  506. X        case UFSLESS:    return(ltos(strcmp(arg1, arg2) < 0));
  507. X        case UFSGREAT:    return(ltos(strcmp(arg1, arg2) > 0));
  508. X        case UFIND:    return(getval(arg1));
  509. X    }
  510. X
  511. X    exit(-11);    /* never should get here */
  512. X}
  513. X
  514. Xchar *gtusr(vname)    /* look up a user var's value */
  515. X
  516. Xchar *vname;        /* name of user variable to fetch */
  517. X
  518. X{
  519. X
  520. X    register int vnum;    /* ordinal number of user var */
  521. X
  522. X    /* scan the list looking for the user var name */
  523. X    for (vnum = 0; vnum < MAXVARS; vnum++)
  524. X        if (strcmp(vname, uv[vnum].u_name) == 0)
  525. X            break;
  526. X
  527. X    /* return errorm on a bad reference */
  528. X    if (vnum == MAXVARS)
  529. X        return(errorm);
  530. X
  531. X    return(uv[vnum].u_value);
  532. X}
  533. X
  534. Xchar *gtenv(vname)
  535. X
  536. Xchar *vname;        /* name of environment variable to retrieve */
  537. X
  538. X{
  539. X    register int vnum;    /* ordinal number of var refrenced */
  540. X
  541. X    /* scan the list, looking for the referenced name */
  542. X    for (vnum = 0; vnum < NEVARS; vnum++)
  543. X        if (strcmp(vname, envars[vnum]) == 0)
  544. X            break;
  545. X
  546. X    /* return errorm on a bad reference */
  547. X    if (vnum == NEVARS)
  548. X        return(errorm);
  549. X
  550. X    /* otherwise, fetch the appropriate value */
  551. X    switch (vnum) {
  552. X        case EVFILLCOL:    return(itoa(fillcol));
  553. X        case EVPAGELEN:    return(itoa(term.t_nrow + 1));
  554. X        case EVCURCOL:    return(itoa(getccol(FALSE)));
  555. X        case EVCURLINE: return(itoa(getcline()));
  556. X        case EVRAM:    return(itoa((int)(envram / 1024l)));
  557. X        case EVFLICKER:    return(ltos(flickcode));
  558. X        case EVCURWIDTH:return(itoa(term.t_nrow));
  559. X        case EVCBUFNAME:return(curbp->b_bname);
  560. X        case EVCFNAME:    return(curbp->b_fname);
  561. X        case EVSRES:    return(sres);
  562. X        case EVDEBUG:    return(ltos(macbug));
  563. X        case EVSTATUS:    return(ltos(cmdstatus));
  564. X    }
  565. X}
  566. X
  567. Xint setvar(f, n)        /* set a variable */
  568. X
  569. Xint f;        /* default flag */
  570. Xint n;        /* numeric arg (can overide prompted value) */
  571. X
  572. X{
  573. X    register int vnum;    /* ordinal number of var refrenced */
  574. X    register int status;    /* status return */
  575. X    register int vtype;    /* type of variable to set */
  576. X    register char * sp;    /* scratch string pointer */
  577. X    char var[NVSIZE+1];    /* name of variable to fetch */
  578. X    char value[NSTRING];    /* value to set variable to */
  579. X
  580. X    /* first get the variable to set.. */
  581. X    if (clexec == FALSE) {
  582. X        status = mlreply("Variable to set: ", &var[0], NVSIZE);
  583. X        if (status != TRUE)
  584. X            return(status);
  585. X    } else {    /* macro line argument */
  586. X        /* grab token and skip it */
  587. X        execstr = token(execstr, var);
  588. X    }
  589. X
  590. X    /* check the legality and find the var */
  591. Xsv01:    vtype = -1;
  592. X    switch (var[0]) {
  593. X
  594. X        case '$': /* check for legal enviromnent var */
  595. X            for (vnum = 0; vnum < NEVARS; vnum++)
  596. X                if (strcmp(&var[1], envars[vnum]) == 0) {
  597. X                    vtype = TKENV;
  598. X                    break;
  599. X                }
  600. X            break;
  601. X
  602. X        case '%': /* check for existing legal user variable */
  603. X            for (vnum = 0; vnum < MAXVARS; vnum++)
  604. X                if (strcmp(&var[1], uv[vnum].u_name) == 0) {
  605. X                    vtype = TKVAR;
  606. X                    break;
  607. X                }
  608. X            if (vnum < MAXVARS)
  609. X                break;
  610. X
  611. X            /* create a new one??? */
  612. X            for (vnum = 0; vnum < MAXVARS; vnum++)
  613. X                if (uv[vnum].u_name[0] == 0) {
  614. X                    vtype = TKVAR;
  615. X                    strcpy(uv[vnum].u_name, &var[1]);
  616. X                    break;
  617. X                }
  618. X            break;
  619. X
  620. X        case '&':    /* indirect operator? */
  621. X            var[4] = 0;
  622. X            if (strcmp(&var[1], "ind") == 0) {
  623. X                /* grab token, and eval it */
  624. X                execstr = token(execstr, var);
  625. X                strcpy(var, getval(var));
  626. X                goto sv01;
  627. X            }
  628. X    }
  629. X
  630. X    /* if its not legal....bitch */
  631. X    if (vtype == -1) {
  632. X        mlwrite("%%No such variable");
  633. X        return(FALSE);
  634. X    }
  635. X
  636. X    /* get the value for that variable */
  637. X    if (f == TRUE)
  638. X        strcpy(value, itoa(n));
  639. X    else {
  640. X        status = mlreply("Value: ", &value[0], NSTRING);
  641. X        if (status != TRUE)
  642. X            return(status);
  643. X    }
  644. X
  645. X    /* and set the appropriate value */
  646. X    status = TRUE;
  647. X    switch (vtype) {
  648. X    case TKVAR: /* set a user variable */
  649. X        if (uv[vnum].u_value != NULL)
  650. X            free(uv[vnum].u_value);
  651. X        sp = malloc(strlen(value) + 1);
  652. X        if (sp == NULL)
  653. X            return(FALSE);
  654. X        strcpy(sp, value);
  655. X        uv[vnum].u_value = sp;
  656. X        break;
  657. X
  658. X    case TKENV: /* set an environment variable */
  659. X        status = TRUE;    /* by default */
  660. X        switch (vnum) {
  661. X        case EVFILLCOL:    fillcol = atoi(value);
  662. X                break;
  663. X        case EVPAGELEN:    status = newsize(TRUE, atoi(value));
  664. X                break;
  665. X        case EVCURCOL:    status = setccol(atoi(value));
  666. X                break;
  667. X        case EVCURLINE:    status = gotoline(TRUE, atoi(value));
  668. X                break;
  669. X        case EVRAM:    break;
  670. X        case EVFLICKER:    flickcode = stol(value);
  671. X                break;
  672. X        case EVCURWIDTH:status = newwidth(TRUE, atoi(value));
  673. X                break;
  674. X        case EVCBUFNAME:strcpy(curbp->b_bname, value);
  675. X                curwp->w_flag |= WFMODE;
  676. X                break;
  677. X        case EVCFNAME:    strcpy(curbp->b_fname, value);
  678. X                curwp->w_flag |= WFMODE;
  679. X                break;
  680. X        case EVSRES:    status = TTrez(value);
  681. X                break;
  682. X        case EVDEBUG:    macbug = stol(value);
  683. X                break;
  684. X        case EVSTATUS:    cmdstatus = stol(value);
  685. X                break;
  686. X        }
  687. X        break;
  688. X    }
  689. X    return(status);
  690. X}
  691. X
  692. X/*    atoi:    ascii string to integer......This is too
  693. X        inconsistant to use the system's    */
  694. X
  695. Xatoi(st)
  696. X
  697. Xchar *st;
  698. X
  699. X{
  700. X    int result;    /* resulting number */
  701. X    int sign;    /* sign of resulting number */
  702. X    char c;        /* current char being examined */
  703. X
  704. X    result = 0;
  705. X    sign = 1;
  706. X    while ((c = *st++)) {
  707. X        if (c == '-')
  708. X            sign *= -1;
  709. X        if (c >= '0' && c <= '9')
  710. X            result = result * 10 + c - '0';
  711. X    }
  712. X
  713. X    return(result * sign);
  714. X}
  715. X
  716. X/*    itoa:    integer to ascii string.......... This is too
  717. X        inconsistant to use the system's    */
  718. X
  719. Xchar *itoa(i)
  720. X
  721. Xint i;    /* integer to translate to a string */
  722. X
  723. X{
  724. X    register int digit;        /* current digit being used */
  725. X    register char *sp;        /* pointer into result */
  726. X    register int sign;        /* sign of resulting number */
  727. X    static char result[INTWIDTH+1];    /* resulting string */
  728. X
  729. X    /* eliminate the trivial 0 */
  730. X    if (i == 0)
  731. X        return("0");
  732. X
  733. X    /* record the sign...*/
  734. X    sign = 1;
  735. X    if (i < 0) {
  736. X        sign = -1;
  737. X        i = -i;
  738. X    }
  739. X
  740. X    /* and build the string (backwards!) */
  741. X    sp = result + INTWIDTH;
  742. X    *sp = 0;
  743. X    while (i) {
  744. X        digit = i % 10;
  745. X        *(--sp) = '0' + digit;    /* and install the new digit */
  746. X        i = i / 10;
  747. X    }
  748. X
  749. X    /* and fix the sign */
  750. X    if (sign == -1) {
  751. X        *(--sp) = '-';    /* and install the minus sign */
  752. X    }
  753. X
  754. X    return(sp);
  755. X}
  756. X
  757. Xint gettyp(token)    /* find the type of a passed token */
  758. X
  759. Xchar *token;    /* token to analyze */
  760. X
  761. X{
  762. X    register char c;    /* first char in token */
  763. X
  764. X    /* grab the first char (this is all we need) */
  765. X    c = *token;
  766. X
  767. X    /* no blanks!!! */
  768. X    if (c == 0)
  769. X        return(TKNUL);
  770. X
  771. X    /* a numeric literal? */
  772. X    if (c >= '0' && c <= '9')
  773. X        return(TKLIT);
  774. X
  775. X    switch (c) {
  776. X        case '"':    return(TKSTR);
  777. X
  778. X        case '!':    return(TKDIR);
  779. X        case '@':    return(TKARG);
  780. X        case '#':    return(TKBUF);
  781. X        case '$':    return(TKENV);
  782. X        case '%':    return(TKVAR);
  783. X        case '&':    return(TKFUN);
  784. X        case '*':    return(TKLBL);
  785. X
  786. X        default:    return(TKCMD);
  787. X    }
  788. X}
  789. X
  790. Xchar *getval(token)    /* find the value of a token */
  791. X
  792. Xchar *token;        /* token to evaluate */
  793. X
  794. X{
  795. X    register int status;    /* error return */
  796. X    register BUFFER *bp;    /* temp buffer pointer */
  797. X    register int blen;    /* length of buffer argument */
  798. X    char buf[NSTRING];    /* string buffer for some returns */
  799. X
  800. X    switch (gettyp(token)) {
  801. X        case TKNUL:    return("");
  802. X
  803. X        case TKARG:    /* interactive argument */
  804. X                status = getstring(getval(&token[1]),
  805. X                       buf, NSTRING, ctoec('\n'));
  806. X                if (status == ABORT)
  807. X                    return(errorm);
  808. X                return(buf);
  809. X
  810. X        case TKBUF:    /* buffer contents fetch */
  811. X
  812. X                /* grab the right buffer */
  813. X                bp = bfind(getval(&token[1]), FALSE, 0);
  814. X                if (bp == NULL)
  815. X                    return(errorm);
  816. X        
  817. X                /* make sure we are not at the end */
  818. X                if (bp->b_linep == bp->b_dotp)
  819. X                    return(errorm);
  820. X        
  821. X                /* grab the line as an argument */
  822. X                blen = bp->b_dotp->l_used;
  823. X                if (blen > NSTRING)
  824. X                    blen = NSTRING;
  825. X                strncpy(buf, bp->b_dotp->l_text, blen);
  826. X                buf[blen] = 0;
  827. X        
  828. X                /* and step the buffer's line ptr ahead a line */
  829. X                bp->b_dotp = bp->b_dotp->l_fp;
  830. X                bp->b_doto = 0;
  831. X
  832. X                /* and return the spoils */
  833. X                return(buf);        
  834. X
  835. X        case TKVAR:    return(gtusr(token+1));
  836. X        case TKENV:    return(gtenv(token+1));
  837. X        case TKFUN:    return(gtfun(token+1));
  838. X        case TKDIR:    return(errorm);
  839. X        case TKLBL:    return(itoa(gtlbl(token)));
  840. X        case TKLIT:    return(token);
  841. X        case TKSTR:    return(token+1);
  842. X        case TKCMD:    return(token);
  843. X    }
  844. X}
  845. X
  846. Xgtlbl(token)    /* find the line number of the given label */
  847. X
  848. Xchar *token;    /* label name to find */
  849. X
  850. X{
  851. X    return(1);
  852. X}
  853. X
  854. Xint stol(val)    /* convert a string to a numeric logical */
  855. X
  856. Xchar *val;    /* value to check for stol */
  857. X
  858. X{
  859. X    /* check for logical values */
  860. X    if (val[0] == 'F')
  861. X        return(FALSE);
  862. X    if (val[0] == 'T')
  863. X        return(TRUE);
  864. X
  865. X    /* check for numeric truth (!= 0) */
  866. X    return((atoi(val) != 0));
  867. X}
  868. X
  869. Xchar *ltos(val)        /* numeric logical to string logical */
  870. X
  871. Xint val;    /* value to translate */
  872. X
  873. X{
  874. X    if (val)
  875. X        return(truem);
  876. X    else
  877. X        return(falsem);
  878. X}
  879. END_OF_eval.c
  880. if test 10700 -ne `wc -c <eval.c`; then
  881.     echo shar: \"eval.c\" unpacked with wrong size!
  882. fi
  883. # end of overwriting check
  884. fi
  885. echo shar: Extracting \"menu.cmd\" \(11966 characters\)
  886. if test -f menu.cmd ; then 
  887.   echo shar: Will not over-write existing file \"menu.cmd\"
  888. else
  889. sed "s/^X//" >menu.cmd <<'END_OF_menu.cmd'
  890. X;    MENU.CMD:    Menu learning system for MicroEMACS 3.7
  891. X;
  892. X;            This file is executed to activate MicroEMACS's
  893. X;            menu interface code
  894. X
  895. X;    setup windows for use
  896. X
  897. X    add-global-mode "blue"
  898. X    1 split-current-window
  899. X    5 resize-window
  900. X    add-mode "red"
  901. X    view-file "menu1"
  902. X    name-buffer "menu window"
  903. X    change-file-name ""
  904. X    add-mode "view"
  905. X    next-window
  906. X
  907. X;    Load menu routines as needed
  908. X
  909. X;    Activate Main Menu
  910. X
  911. X1    store-macro
  912. X    save-window
  913. X    1 next-window
  914. X    beginning-of-file
  915. X    search-forward "<<01"
  916. X    next-line
  917. X    1 redraw-display
  918. X    restore-window
  919. X    update-screen
  920. X
  921. X;    ***** Rebind the Function key group
  922. X
  923. X    bind-to-key execute-macro-3    FN;
  924. X    bind-to-key execute-macro-4    FN<
  925. X    bind-to-key execute-macro-5    FN=
  926. X    bind-to-key execute-macro-6    FN>
  927. X    bind-to-key execute-macro-7    FN?
  928. X    bind-to-key execute-macro-8    FN@
  929. X    bind-to-key execute-macro-9    FNA
  930. X    bind-to-key execute-macro-2    FNB
  931. X    bind-to-key execute-macro-10    FNC
  932. X    bind-to-key exit-emacs        FND
  933. X    clear-message-line
  934. X!endm
  935. X
  936. X;    and bring that menu up
  937. X
  938. X    execute-macro-1
  939. X    write-message "         [loading MENU system]"
  940. X
  941. X;    set up the editor control menu
  942. X
  943. X2    store-macro
  944. X    save-window
  945. X    1 next-window
  946. X    beginning-of-file
  947. X    search-forward "<<02"
  948. X    next-line
  949. X    1 redraw-display
  950. X    restore-window
  951. X    update-screen
  952. X
  953. X;    ***** Rebind the Function key group
  954. X
  955. X    bind-to-key execute-macro-11    FN;
  956. X    bind-to-key execute-macro-12    FN<
  957. X    bind-to-key execute-macro-13    FN=
  958. X    bind-to-key execute-macro-14    FN>
  959. X    bind-to-key execute-macro-15    FN?
  960. X    bind-to-key execute-macro-16    FN@
  961. X    bind-to-key execute-macro-17    FNA
  962. X    bind-to-key execute-macro-18    FNB
  963. X    bind-to-key execute-macro-19    FNC
  964. X    bind-to-key execute-macro-1    FND
  965. X    clear-message-line
  966. X!endm
  967. X
  968. X;    Activate word case/screen control Menu
  969. X
  970. X3    store-macro
  971. X    save-window
  972. X    1 next-window
  973. X    beginning-of-file
  974. X    search-forward "<<03"
  975. X    next-line
  976. X    1 redraw-display
  977. X    restore-window
  978. X    update-screen
  979. X
  980. X;    ***** Rebind the Function key group
  981. X
  982. X    bind-to-key case-word-upper    FN;
  983. X    bind-to-key case-region-upper    FN<
  984. X    bind-to-key case-word-lower    FN=
  985. X    bind-to-key case-region-lower    FN>
  986. X    bind-to-key case-word-capitalize FN?
  987. X    unbind-key FN@
  988. X    bind-to-key clear-and-redraw    FNA
  989. X    bind-to-key set-mark        FNB
  990. X    bind-to-key redraw-display    FNC
  991. X    bind-to-key execute-macro-1    FND
  992. X    clear-message-line
  993. X!endm
  994. X
  995. X;    Activate paging/scrolling Menu
  996. X
  997. X4    store-macro
  998. X    save-window
  999. X    1 next-window
  1000. X    beginning-of-file
  1001. X    search-forward "<<08"
  1002. X    next-line
  1003. X    1 redraw-display
  1004. X    restore-window
  1005. X    update-screen
  1006. X
  1007. X;    ***** Rebind the Function key group
  1008. X
  1009. X    bind-to-key previous-page    FN;
  1010. X    bind-to-key next-page        FN<
  1011. X    bind-to-key move-window-down    FN=
  1012. X    bind-to-key move-window-up    FN>
  1013. X    bind-to-key scroll-next-up    FN?
  1014. X    unbind-key             FN@
  1015. X    bind-to-key scroll-next-down    FNA
  1016. X    unbind-key             FNB
  1017. X    bind-to-key exchange-point-and-mark FNC
  1018. X    bind-to-key execute-macro-1    FND
  1019. X    clear-message-line
  1020. X!endm
  1021. X
  1022. X;    Activate cut & paste Menu
  1023. X
  1024. X5    store-macro
  1025. X    save-window
  1026. X    1 next-window
  1027. X    beginning-of-file
  1028. X    search-forward "<<04"
  1029. X    next-line
  1030. X    1 redraw-display
  1031. X    restore-window
  1032. X    update-screen
  1033. X
  1034. X;    ***** Rebind the Function key group
  1035. X
  1036. X    bind-to-key set-mark        FN;
  1037. X    unbind-key FN<
  1038. X    bind-to-key kill-region        FN=
  1039. X    unbind-key FN>
  1040. X    bind-to-key copy-region        FN?
  1041. X    unbind-key FN@
  1042. X    bind-to-key yank        FNA
  1043. X    unbind-key FNB
  1044. X    unbind-key FNC
  1045. X    bind-to-key execute-macro-1    FND
  1046. X    clear-message-line
  1047. X!endm
  1048. X
  1049. X;    Activate Search & replace Menu
  1050. X
  1051. X6    store-macro
  1052. X    save-window
  1053. X    1 next-window
  1054. X    beginning-of-file
  1055. X    search-forward "<<09"
  1056. X    next-line
  1057. X    1 redraw-display
  1058. X    restore-window
  1059. X    update-screen
  1060. X
  1061. X;    ***** Rebind the Function key group
  1062. X
  1063. X    bind-to-key search-forward    FN;
  1064. X    bind-to-key search-reverse    FN<
  1065. X    bind-to-key hunt-forward    FN=
  1066. X    bind-to-key hunt-backward    FN>
  1067. X    bind-to-key incremental-search    FN?
  1068. X    bind-to-key reverse-incremental-search FN@
  1069. X    bind-to-key replace-string    FNA
  1070. X    bind-to-key query-replace-string FNB
  1071. X    unbind-key FNC
  1072. X    bind-to-key execute-macro-1    FND
  1073. X    clear-message-line
  1074. X!endm
  1075. X
  1076. X;    Activate Deletion Menu
  1077. X
  1078. X7    store-macro
  1079. X    save-window
  1080. X    1 next-window
  1081. X    beginning-of-file
  1082. X    search-forward "<<05"
  1083. X    next-line
  1084. X    1 redraw-display
  1085. X    restore-window
  1086. X    update-screen
  1087. X
  1088. X;    ***** Rebind the Function key group
  1089. X
  1090. X    bind-to-key delete-previous-character FN;
  1091. X    unbind-key FN<
  1092. X    bind-to-key delete-next-character FN=
  1093. X    unbind-key FN>
  1094. X    bind-to-key kill-to-end-of-line    FN?
  1095. X    unbind-key FN@
  1096. X    bind-to-key delete-blank-lines    FNA
  1097. X    unbind-key FNB
  1098. X    unbind-key FNC
  1099. X    bind-to-key execute-macro-1    FND
  1100. X    clear-message-line
  1101. X!endm
  1102. X
  1103. X;    Activate Word procesing Menu
  1104. X
  1105. X8    store-macro
  1106. X    save-window
  1107. X    1 next-window
  1108. X    beginning-of-file
  1109. X    search-forward "<<10"
  1110. X    next-line
  1111. X    1 redraw-display
  1112. X    restore-window
  1113. X    update-screen
  1114. X
  1115. X;    ***** Rebind the Function key group
  1116. X
  1117. X    bind-to-key previous-word    FN;
  1118. X    bind-to-key next-word        FN<
  1119. X    bind-to-key previous-paragraph    FN=
  1120. X    bind-to-key next-paragraph    FN>
  1121. X    bind-to-key fill-paragraph    FN?
  1122. X    bind-to-key kill-paragraph    FN@
  1123. X    bind-to-key delete-previous-word FNA
  1124. X    bind-to-key delete-next-word    FNB
  1125. X    bind-to-key count-words        FNC
  1126. X    bind-to-key execute-macro-1    FND
  1127. X    clear-message-line
  1128. X!endm
  1129. X
  1130. X;    Activate Insertion Menu
  1131. X
  1132. X9    store-macro
  1133. X    save-window
  1134. X    1 next-window
  1135. X    beginning-of-file
  1136. X    search-forward "<<06"
  1137. X    next-line
  1138. X    1 redraw-display
  1139. X    restore-window
  1140. X    update-screen
  1141. X
  1142. X;    ***** Rebind the Function key group
  1143. X
  1144. X    bind-to-key open-line        FN;
  1145. X    bind-to-key insert-string    FN<
  1146. X    bind-to-key handle-tab        FN=
  1147. X    bind-to-key quote-character    FN>
  1148. X    bind-to-key insert-space    FN?
  1149. X    bind-to-key transpose-characters FN@
  1150. X    bind-to-key newline-and-indent    FNA
  1151. X    unbind-key FNB
  1152. X    bind-to-key newline        FNC
  1153. X    bind-to-key execute-macro-1    FND
  1154. X    clear-message-line
  1155. X!endm
  1156. X
  1157. X;    Activate Cursor movement Menu
  1158. X
  1159. X10    store-macro
  1160. X    save-window
  1161. X    1 next-window
  1162. X    beginning-of-file
  1163. X    search-forward "<<07"
  1164. X    next-line
  1165. X    1 redraw-display
  1166. X    restore-window
  1167. X    update-screen
  1168. X
  1169. X;    ***** Rebind the Function key group
  1170. X
  1171. X    bind-to-key beginning-of-file    FN;
  1172. X    bind-to-key previous-line    FN<
  1173. X    bind-to-key backward-character    FN=
  1174. X    bind-to-key forward-character    FN>
  1175. X    bind-to-key end-of-file        FN?
  1176. X    bind-to-key next-line        FN@
  1177. X    bind-to-key beginning-of-line    FNA
  1178. X    bind-to-key end-of-line        FNB
  1179. X    bind-to-key execute-macro-21    FNC
  1180. X    bind-to-key execute-macro-1    FND
  1181. X    clear-message-line
  1182. X!endm
  1183. X
  1184. X21    store-macro
  1185. X    @"Line number to go to: " goto-line
  1186. X!endm
  1187. X
  1188. X;    Activate Buffer Menu
  1189. X
  1190. X11    store-macro
  1191. X    save-window
  1192. X    1 next-window
  1193. X    beginning-of-file
  1194. X    search-forward "<<11"
  1195. X    next-line
  1196. X    1 redraw-display
  1197. X    restore-window
  1198. X    update-screen
  1199. X
  1200. X;    ***** Rebind the Function key group
  1201. X
  1202. X    bind-to-key buffer-position    FN;
  1203. X    bind-to-key unmark-buffer    FN<
  1204. X    bind-to-key delete-buffer    FN=
  1205. X    bind-to-key next-buffer        FN>
  1206. X    bind-to-key list-buffers    FN?
  1207. X    bind-to-key execute-macro-22    FN@
  1208. X    bind-to-key name-buffer        FNA
  1209. X    unbind-key FNB
  1210. X    bind-to-key select-buffer    FNC
  1211. X    bind-to-key execute-macro-2    FND
  1212. X    clear-message-line
  1213. X!endm
  1214. X
  1215. X22    store-macro
  1216. X    filter-buffer @"Name of DOS filter: "
  1217. X!endm
  1218. X;    Macro Menu
  1219. X
  1220. X12    store-macro
  1221. X    save-window
  1222. X    1 next-window
  1223. X    beginning-of-file
  1224. X    search-forward "<<11"
  1225. X    next-line
  1226. X    1 redraw-display
  1227. X    restore-window
  1228. X    update-screen
  1229. X
  1230. X;    ***** Rebind the Function key group
  1231. X
  1232. X    bind-to-key begin-macro        FN;
  1233. X    unbind-key FN<
  1234. X    bind-to-key end-macro        FN=
  1235. X    unbind-key FN>
  1236. X    bind-to-key execute-macro    FN?
  1237. X    unbind-key FN@
  1238. X    unbind-key FNA
  1239. X    unbind-key FNB
  1240. X    unbind-key FNC
  1241. X    bind-to-key execute-macro-2    FND
  1242. X    clear-message-line
  1243. X!endm
  1244. X
  1245. X;    Color change Menu
  1246. X
  1247. X13    store-macro
  1248. X    save-window
  1249. X    1 next-window
  1250. X    beginning-of-file
  1251. X    search-forward "<<12"
  1252. X    next-line
  1253. X    1 redraw-display
  1254. X    restore-window
  1255. X    update-screen
  1256. X
  1257. X;    ***** Rebind the Function key group
  1258. X
  1259. X    bind-to-key execute-macro-23    FN;
  1260. X    unbind-key FN<
  1261. X    bind-to-key execute-macro-24    FN=
  1262. X    unbind-key FN>
  1263. X    bind-to-key execute-macro-25    FN?
  1264. X    unbind-key FN@
  1265. X    bind-to-key execute-macro-26    FNA
  1266. X    unbind-key FNB
  1267. X    unbind-key FNC
  1268. X    bind-to-key execute-macro-2    FND
  1269. X    clear-message-line
  1270. X!endm
  1271. X
  1272. X;    Set forground color
  1273. X
  1274. X23    store-macro
  1275. X    save-window
  1276. X    1 next-window
  1277. X    select-buffer "[color]"
  1278. X    beginning-of-file
  1279. X    insert-string @"Color to change to: "
  1280. X    newline
  1281. X    beginning-of-file
  1282. X    case-word-upper
  1283. X    beginning-of-file
  1284. X    unmark-buffer
  1285. X    select-buffer "menu window"
  1286. X    1 redraw-display
  1287. X    restore-window
  1288. X    add-mode #"[color]"
  1289. X    delete-buffer "[color]"
  1290. X!endm
  1291. X
  1292. X;    Set background color
  1293. X
  1294. X24    store-macro
  1295. X    save-window
  1296. X    1 next-window
  1297. X    select-buffer "[color]"
  1298. X    beginning-of-file
  1299. X    insert-string @"Color to change to: "
  1300. X    newline
  1301. X    beginning-of-file
  1302. X    case-word-lower
  1303. X    beginning-of-file
  1304. X    unmark-buffer
  1305. X    select-buffer "menu window"
  1306. X    1 redraw-display
  1307. X    restore-window
  1308. X    add-mode #"[color]"
  1309. X    delete-buffer "[color]"
  1310. X!endm
  1311. X
  1312. X;    Set global forground color
  1313. X
  1314. X25    store-macro
  1315. X    save-window
  1316. X    1 next-window
  1317. X    select-buffer "[color]"
  1318. X    beginning-of-file
  1319. X    insert-string @"Color to change to: "
  1320. X    newline
  1321. X    beginning-of-file
  1322. X    case-word-upper
  1323. X    beginning-of-file
  1324. X    unmark-buffer
  1325. X    select-buffer "menu window"
  1326. X    1 redraw-display
  1327. X    restore-window
  1328. X    add-global-mode #"[color]"
  1329. X    delete-buffer "[color]"
  1330. X!endm
  1331. X
  1332. X;    Set global background color
  1333. X
  1334. X26    store-macro
  1335. X    save-window
  1336. X    1 next-window
  1337. X    select-buffer "[color]"
  1338. X    beginning-of-file
  1339. X    insert-string @"Color to change to: "
  1340. X    newline
  1341. X    beginning-of-file
  1342. X    case-word-lower
  1343. X    beginning-of-file
  1344. X    unmark-buffer
  1345. X    select-buffer "menu window"
  1346. X    1 redraw-display
  1347. X    restore-window
  1348. X    add-global-mode #"[color]"
  1349. X    delete-buffer "[color]"
  1350. X!endm
  1351. X
  1352. X;    set Mode Menu
  1353. X
  1354. X14    store-macro
  1355. X    save-window
  1356. X    1 next-window
  1357. X    beginning-of-file
  1358. X    search-forward "<<17"
  1359. X    next-line
  1360. X    1 redraw-display
  1361. X    restore-window
  1362. X    update-screen
  1363. X
  1364. X;    ***** Rebind the Function key group
  1365. X
  1366. X    bind-to-key add-mode        FN;
  1367. X    bind-to-key add-global-mode    FN<
  1368. X    bind-to-key delete-mode        FN=
  1369. X    bind-to-key delete-global-mode    FN>
  1370. X    unbind-key FN?
  1371. X    bind-to-key execute-macro-27    FN@
  1372. X    unbind-key FNA
  1373. X    unbind-key FNB
  1374. X    bind-to-key select-buffer    FNC
  1375. X    bind-to-key execute-macro-2    FND
  1376. X    clear-message-line
  1377. X!endm
  1378. X
  1379. X27    store-macro
  1380. X    @"Column to fill to: " set-fill-column
  1381. X!endm
  1382. X
  1383. X;    DOS command Menu
  1384. X
  1385. X15    store-macro
  1386. X    save-window
  1387. X    1 next-window
  1388. X    beginning-of-file
  1389. X    search-forward "<<13"
  1390. X    next-line
  1391. X    1 redraw-display
  1392. X    restore-window
  1393. X    update-screen
  1394. X
  1395. X;    ***** Rebind the Function key group
  1396. X
  1397. X    bind-to-key shell-command    FN;
  1398. X    unbind-key FN<
  1399. X    bind-to-key pipe-command    FN=
  1400. X    unbind-key FN>
  1401. X    bind-to-key i-shell        FN?
  1402. X    unbind-key FN@
  1403. X    bind-to-key quick-exit        FNA
  1404. X    unbind-key FNB
  1405. X    bind-to-key exit-emacs        FNC
  1406. X    bind-to-key execute-macro-2    FND
  1407. X    clear-message-line
  1408. X!endm
  1409. X
  1410. X;    Script Menu
  1411. X
  1412. X16    store-macro
  1413. X    save-window
  1414. X    1 next-window
  1415. X    beginning-of-file
  1416. X    search-forward "<<18"
  1417. X    next-line
  1418. X    1 redraw-display
  1419. X    restore-window
  1420. X    update-screen
  1421. X
  1422. X;    ***** Rebind the Function key group
  1423. X
  1424. X    bind-to-key execute-file    FN;
  1425. X    bind-to-key execute-command-line FN<
  1426. X    bind-to-key execute-buffer    FN=
  1427. X    bind-to-key execute-named-command FN>
  1428. X    unbind-key FN?
  1429. X    unbind-key FN@
  1430. X    unbind-key FNA
  1431. X    unbind-key FNB
  1432. X    unbind-key FNC
  1433. X    bind-to-key execute-macro-2    FND
  1434. X    clear-message-line
  1435. X!endm
  1436. X
  1437. X;    File access Menu
  1438. X
  1439. X17    store-macro
  1440. X    save-window
  1441. X    1 next-window
  1442. X    beginning-of-file
  1443. X    search-forward "<<14"
  1444. X    next-line
  1445. X    1 redraw-display
  1446. X    restore-window
  1447. X    update-screen
  1448. X
  1449. X;    ***** Rebind the Function key group
  1450. X
  1451. X    bind-to-key find-file        FN;
  1452. X    bind-to-key save-file        FN<
  1453. X    bind-to-key view-file        FN=
  1454. X    bind-to-key write-file        FN>
  1455. X    bind-to-key read-file        FN?
  1456. X    bind-to-key change-file-name    FN@
  1457. X    bind-to-key insert-file        FNA
  1458. X    unbind-key FNB
  1459. X    unbind-key FNC
  1460. X    bind-to-key execute-macro-2    FND
  1461. X    clear-message-line
  1462. X!endm
  1463. X
  1464. X;    Window Menu
  1465. X
  1466. X18    store-macro
  1467. X    save-window
  1468. X    1 next-window
  1469. X    beginning-of-file
  1470. X    search-forward "<<19"
  1471. X    next-line
  1472. X    1 redraw-display
  1473. X    restore-window
  1474. X    update-screen
  1475. X
  1476. X;    ***** Rebind the Function key group
  1477. X
  1478. X    bind-to-key split-current-window FN;
  1479. X    bind-to-key delete-other-windows FN<
  1480. X    bind-to-key resize-window    FN=
  1481. X    bind-to-key delete-window    FN>
  1482. X    bind-to-key shrink-window    FN?
  1483. X    bind-to-key grow-window        FN@
  1484. X    bind-to-key next-window        FNA
  1485. X    bind-to-key previous-window    FNB
  1486. X    unbind-key FNC
  1487. X    bind-to-key execute-macro-2    FND
  1488. X    clear-message-line
  1489. X!endm
  1490. X
  1491. X;    key binding Menu
  1492. X
  1493. X19    store-macro
  1494. X    save-window
  1495. X    1 next-window
  1496. X    beginning-of-file
  1497. X    search-forward "<<15"
  1498. X    next-line
  1499. X    1 redraw-display
  1500. X    restore-window
  1501. X    update-screen
  1502. X
  1503. X;    ***** Rebind the Function key group
  1504. X
  1505. X    bind-to-key bind-to-key        FN;
  1506. X    unbind-key FN<
  1507. X    bind-to-key unbind-key        FN=
  1508. X    unbind-key FN>
  1509. X    bind-to-key describe-key    FN?
  1510. X    unbind-key FN@
  1511. X    bind-to-key describe-bindings    FNA
  1512. X    unbind-key FNB
  1513. X    unbind-key FNC
  1514. X    bind-to-key execute-macro-2    FND
  1515. X    clear-message-line
  1516. X!endm
  1517. X
  1518. X    clear-message-line
  1519. END_OF_menu.cmd
  1520. if test 11966 -ne `wc -c <menu.cmd`; then
  1521.     echo shar: \"menu.cmd\" unpacked with wrong size!
  1522. fi
  1523. # end of overwriting check
  1524. fi
  1525. echo shar: Extracting \"st520.c\" \(10316 characters\)
  1526. if test -f st520.c ; then 
  1527.   echo shar: Will not over-write existing file \"st520.c\"
  1528. else
  1529. sed "s/^X//" >st520.c <<'END_OF_st520.c'
  1530. X/*
  1531. X
  1532. XThe routines in this file provide support for the Atari ST520 or 1040
  1533. Xusing VT52 emulation.  The I/O services are provided by routines in
  1534. X"termio.c".  It compiles into nothing if not a ST520 style device.  The
  1535. Xbell on the ST520 is terrible, so the "beep" routine is conditionalized
  1536. Xon defining BEL. 
  1537. X
  1538. X*/
  1539. X
  1540. X#define    termdef    1            /* don't define "term" external */
  1541. X
  1542. X#include        <stdio.h>
  1543. X#include        "estruct.h"
  1544. X#include    "edef.h"
  1545. X
  1546. X#if MEGAMAX
  1547. Xoverlay "st520"
  1548. X#endif
  1549. X
  1550. X#if     ATARI & ST520 & MEGAMAX
  1551. X#include    <osbind.h>
  1552. X#include    <ctype.h>
  1553. X
  1554. X#define LINEA_INIT 0xA000
  1555. X#define V_CEL_WR   -0x28
  1556. X#define V_CEL_MY   -0x2a
  1557. X#define V_CEL_HT   -0x2e
  1558. X#define V_FNT_AD   -0x16
  1559. X#define V_OFF_AD   -0x0a
  1560. X#define V_DISAB    -346
  1561. X
  1562. X#define NROW    24                      /* Screen size.                 */
  1563. X#define NCOL    80                      /* Edit if you want to.         */
  1564. X#define    MARGIN    8            /* size of minimim margin and    */
  1565. X#define    SCRSIZ    64            /* scroll size for extended lines */
  1566. X#define    NPAUSE    25            /* # times thru update to pause */
  1567. X#define BIAS    0x20                    /* Origin 0 coordinate bias.    */
  1568. X#define ESC     0x1B                    /* ESC character.               */
  1569. X#define BEL     0x07                    /* ascii bell character         */
  1570. X
  1571. Xextern  int     ttopen();               /* Forward references.          */
  1572. Xextern  int     ttgetc();
  1573. Xextern  int     ttputc();
  1574. Xextern  int     ttflush();
  1575. Xextern  int     ttclose();
  1576. Xextern  int     st520move();
  1577. Xextern  int     st520eeol();
  1578. Xextern  int     st520eeop();
  1579. Xextern  int     st520beep();
  1580. Xextern  int     st520open();
  1581. Xextern    int    st520close();
  1582. Xextern    int    st520rev();
  1583. Xextern    int    st520cres();
  1584. Xextern  int st520kopen();
  1585. Xextern  int st520kclose();
  1586. X
  1587. X#if    COLOR
  1588. Xextern    int    st520fcol();
  1589. Xextern    int    st520bcol();
  1590. X
  1591. Xint        cfcolor = -1;        /* current fg (character) color */
  1592. Xint        cbcolor = -1;        /* current bg color */
  1593. Xint        oldpal[8];        /* pallette when emacs was invoked */
  1594. Xint        newpal[8] = {        /* default emacs pallette */
  1595. X    0x000, 0x700, 0x070, 0x770, 0x007, 0x707, 0x077, 0x777};
  1596. X#endif
  1597. X
  1598. Xint STncolors = 0;        /* number of colors  */
  1599. Xint STrez;            /* physical screen resolution */    
  1600. X
  1601. X/*
  1602. X * Dispatch table. All the
  1603. X * hard fields just point into the
  1604. X * terminal I/O code.
  1605. X */
  1606. XTERM    term    = {
  1607. X        NROW-1,
  1608. X        NCOL,
  1609. X    MARGIN,
  1610. X    MARGIN,
  1611. X    SCRSIZ,
  1612. X    NPAUSE,
  1613. X        &st520open,
  1614. X        &st520close,
  1615. X    &st520kopen,
  1616. X    &st520kclose,
  1617. X        &ttgetc,
  1618. X        &ttputc,
  1619. X        &ttflush,
  1620. X        &st520move,
  1621. X        &st520eeol,
  1622. X        &st520eeop,
  1623. X        &st520beep,
  1624. X        &st520rev,
  1625. X        &st520cres
  1626. X#if    COLOR
  1627. X    , &st520fcol,
  1628. X    &st520bcol
  1629. X#endif
  1630. X};
  1631. X    struct KBDvecs {
  1632. X        int (*midivec) ();
  1633. X        int (*vkbderr) ();
  1634. X        int (*vmiderr) ();
  1635. X        int (*statvec) ();
  1636. X        int (*mousevec) ();
  1637. X        int (*clockvec) ();
  1638. X        int (*joyvec) ();
  1639. X        int (*midisys) ();
  1640. X        int (*ikbdsys) ();
  1641. X    };
  1642. X    struct Param {
  1643. X        char topmode;
  1644. X        char buttons;
  1645. X        char xparam;
  1646. X        char yparam;
  1647. X        int xmax,ymax;
  1648. X        int xinitial,yinitial;
  1649. X    };
  1650. X    struct KBDvecs *kbdvecs;
  1651. X    struct Param *paramp;
  1652. X    char kbdcmds[25];
  1653. X
  1654. Xst520move(row, col)
  1655. X{
  1656. X        ttputc(ESC);
  1657. X        ttputc('Y');
  1658. X        ttputc(row+BIAS);
  1659. X        ttputc(col+BIAS);
  1660. X}
  1661. X
  1662. Xst520eeol()
  1663. X{
  1664. X        ttputc(ESC);
  1665. X        ttputc('K');
  1666. X}
  1667. X
  1668. Xst520eeop()
  1669. X{
  1670. X
  1671. X#if    COLOR
  1672. X        st520fcol(gfcolor);
  1673. X        st520bcol(gbcolor);
  1674. X#endif
  1675. X        ttputc(ESC);
  1676. X        ttputc('J');
  1677. X}
  1678. X
  1679. Xst520rev(status)    /* set the reverse video state */
  1680. X
  1681. Xint status;    /* TRUE = reverse video, FALSE = normal video */
  1682. X
  1683. X{
  1684. X
  1685. X    if(status) {
  1686. X        ttputc(ESC);
  1687. X        ttputc('p');
  1688. X    }
  1689. X    else {
  1690. X        ttputc(ESC);
  1691. X        ttputc('q');
  1692. X    }
  1693. X}
  1694. X
  1695. X#if    COLOR
  1696. Xst520fcol(color)
  1697. Xint color;    
  1698. X{
  1699. X        if(color == cfcolor || !STncolors)
  1700. X            return;
  1701. X        else {
  1702. X
  1703. X            ttputc(ESC);
  1704. X            ttputc('b');
  1705. X            ttputc(color & 0x0f);
  1706. X            cfcolor = color;
  1707. X        }
  1708. X}
  1709. X
  1710. Xst520bcol(color)
  1711. Xint color;
  1712. X{
  1713. X        if(color == cbcolor || !STncolors)
  1714. X            return;
  1715. X        else {
  1716. X            ttputc(ESC);
  1717. X            ttputc('c');
  1718. X            ttputc(color & 0x0f);
  1719. X            cbcolor = color;
  1720. X        }
  1721. X
  1722. X}
  1723. X#endif
  1724. X
  1725. Xst520beep()
  1726. X{
  1727. X#ifdef  BEL
  1728. X        ttputc(BEL);
  1729. X        ttflush();
  1730. X#endif
  1731. X}
  1732. X
  1733. Xst520open()
  1734. X{
  1735. X    int i,j,k;
  1736. X    long phys, log;    /* screen bases */
  1737. X    
  1738. X/* IMPORTANT: it is ABSOLUTELY necessary that the default resolution be the
  1739. X *    largest possible so that display will allocate (malloc) the maximum
  1740. X *    size for the VIDEO arrray
  1741. X */
  1742. X    STrez = Getrez();
  1743. X    switch(STrez) {
  1744. X        case 0: /* low res 25x40 16 colors */
  1745. X            strcpy(sres, "LOW");
  1746. X            phys = Physbase();
  1747. X            log  = Logbase();
  1748. X            Setscreen(log, phys, 1);
  1749. X            STrez = 1;
  1750. X            /* fall thru to med res */
  1751. X
  1752. X        case 1: /* med res 25x80 4 colors */
  1753. X            if (STrez == 1) strcpy(sres, "MEDIUM");
  1754. X            term.t_nrow = 25 - 1;
  1755. X            term.t_ncol  = 80;
  1756. X            grez = 1;
  1757. X#if    COLOR
  1758. X            STncolors = 4;
  1759. X            for(i=0;i<8;i++) {
  1760. X                oldpal[i] = Setcolor(i,newpal[i]);
  1761. X            }
  1762. X#endif
  1763. X            break;
  1764. X        case 2: /* high res 25x80 no colors */
  1765. X            strcpy(sres, "HIGH");
  1766. X            term.t_nrow  = 40 - 1;
  1767. X            term.t_ncol  = 80;
  1768. X            grez = 2;
  1769. X            make_8x10(); /* create a smaller font */
  1770. X            set_40();    /* and go to 40 line mode */
  1771. X#if    COLOR
  1772. X            STncolors = 0;
  1773. X#endif
  1774. X            break;
  1775. X    }
  1776. X
  1777. X    revexist = TRUE;
  1778. X    eolexist = TRUE;
  1779. X    paramp = (struct Param *)malloc(sizeof(struct Param));
  1780. X    kbdvecs = (struct KBDvecs *)Kbdvbase();
  1781. X    paramp -> topmode = 0;
  1782. X    paramp -> buttons = 4;
  1783. X    paramp -> xparam = 8;
  1784. X    paramp -> yparam = 10;
  1785. X    paramp -> xmax = 79;
  1786. X    paramp -> ymax = 23;
  1787. X    paramp -> xinitial = 0;
  1788. X    paramp -> yinitial = 0;
  1789. X    Initmous(1,paramp,kbdvecs -> mousevec);
  1790. X
  1791. X    i = 0;
  1792. X    kbdcmds[i++] = 0x0a;    /*set mouse keycode mode */
  1793. X    kbdcmds[i++] = 0x08;
  1794. X    kbdcmds[i++] = 0x0a;
  1795. X    Ikbdws(i-1,&kbdcmds[0]);
  1796. X    Cursconf(1,0);
  1797. X    Cursconf(3,0);
  1798. X    Cconout(27);Cconout('E');
  1799. X        ttopen();
  1800. X}
  1801. X
  1802. Xst520close()
  1803. X
  1804. X{
  1805. X    int i,j,k;
  1806. X
  1807. X    i = 0;
  1808. X    kbdcmds[i++] = 0x80;    /*reset mouse keycode mode */
  1809. X    kbdcmds[i++] = 0x01;
  1810. X    Ikbdws(i-1,&kbdcmds[0]);
  1811. X    if(grez == 2 && STrez == 2) /* b/w monitor in 40 row mode */
  1812. X        restore();
  1813. X
  1814. X#if        COLOR
  1815. X    for(i=0;i<STncolors;i++)
  1816. X        Setcolor(i,oldpal[i]);
  1817. X#endif
  1818. X    Cconout(27);Cconout('E');
  1819. X    paramp -> buttons = 0;
  1820. X    Initmous(2,paramp,kbdvecs -> mousevec);
  1821. X    i = 0;
  1822. X    kbdcmds[i++] = 0x80;    /*reset the keyboard*/
  1823. X    kbdcmds[i++] = 0x01;
  1824. X    Ikbdws(i-1,&kbdcmds[0]);
  1825. X    Cursconf(1,0);
  1826. X    ttclose();
  1827. X}
  1828. Xst520kopen()
  1829. X{
  1830. X
  1831. X}
  1832. Xst520kclose()
  1833. X{
  1834. X
  1835. X}
  1836. X
  1837. Xst520cres(res)        /* change screen resolution */
  1838. X
  1839. Xchar *res;        /* resolution to change to */
  1840. X
  1841. X{
  1842. X    register int nurez;    /* number of res to change to */
  1843. X    int ierr, i, j ,k;
  1844. X    long phys, log;    /* screen bases */
  1845. X    char dum[80]; /* for debugging only */
  1846. X
  1847. X    /* determine the needed resolution */
  1848. X    if (strcmp(res, "LOW") == 0)
  1849. X        nurez = 1;
  1850. X    else if (strcmp(res, "MEDIUM") == 0)
  1851. X        nurez = 2;
  1852. X    else if (strcmp(res, "HIGH") == 0)
  1853. X        nurez = 3;
  1854. X    else
  1855. X        return(FALSE);
  1856. X
  1857. X    if(grez == nurez)
  1858. X        return(TRUE);
  1859. X        
  1860. X    if(STrez == 2) { /* b/w monitor-only allow hi | med rez */
  1861. X        switch(nurez) {
  1862. X            case 2: /* high res */
  1863. X                term.t_nrow  = 40 - 1;
  1864. X                term.t_ncol  = 80;
  1865. X                make_8x10(); /* create a smaller font */
  1866. X                set_40();    /* and go to 40 line mode */
  1867. X                grez = 2;
  1868. X                sgarbf = TRUE;
  1869. X                onlywind(1,1);
  1870. X                strcpy(sres, "HIGH");
  1871. X                break;
  1872. X            case 1: /* med res */
  1873. X                term.t_nrow  = 25 - 1;
  1874. X                term.t_ncol  = 80;
  1875. X                restore();
  1876. X                grez = 1;
  1877. X                sgarbf = TRUE;
  1878. X                onlywind(1,1);
  1879. X                strcpy(sres, "MEDIUM");
  1880. X                break;
  1881. X            default:
  1882. X                mlwrite("Invalid resolution");
  1883. X                return(FALSE);
  1884. X                break;
  1885. X        }
  1886. X    }
  1887. X    else { /* color monitor-only allow low | medium resolution */
  1888. X        phys = Physbase();
  1889. X        log  = Logbase();
  1890. X        switch(nurez) {
  1891. X            case 1:
  1892. X                term.t_nrow  = 25 - 1;
  1893. X                term.t_ncol  = 80;
  1894. X                Setscreen(log, phys, 1);
  1895. X                STncolors = 4;
  1896. X                grez = 1;
  1897. X                sgarbf = TRUE;
  1898. X                onlywind(1,1);
  1899. X                strcpy(sres, "LOW");
  1900. X                break;
  1901. X            case 0:
  1902. X                term.t_nrow  = 25 - 1;
  1903. X                term.t_ncol  = 40;
  1904. X                Setscreen(log, phys, 0);
  1905. X                STncolors = 8;
  1906. X                grez = 0;
  1907. X                sgarbf = TRUE;
  1908. X                onlywind(1,1);
  1909. X                strcpy(sres, "MEDIUM");
  1910. X                break;
  1911. X            default:
  1912. X                mlwrite("%Invalid resolution");
  1913. X                return(FALSE);
  1914. X                break;
  1915. X        }
  1916. X    }
  1917. X    return(TRUE);
  1918. X}            
  1919. X
  1920. XSTcurblink(onoff)
  1921. Xint onoff;
  1922. X{
  1923. X    if(onoff)
  1924. X        Cursconf(2,0);
  1925. X    else
  1926. X        Cursconf(3,0);
  1927. X}
  1928. X
  1929. X
  1930. Xchar parm_save[28];
  1931. Xlong fnt_8x10[640];
  1932. X
  1933. Xmake_8x10()
  1934. X{
  1935. X    int i,j,k;
  1936. X    long savea23[2];
  1937. X    
  1938. X    for(i=0;i<640;i++)
  1939. X        fnt_8x10[i] = 0;
  1940. X        
  1941. X    asm {
  1942. X    movem.l    A2-A3,savea23(A6)
  1943. X    
  1944. X    dc.w    LINEA_INIT        ;A1 -> array of font headers
  1945. X
  1946. X    lea    parm_save(A4),A2    ;A2 -> parameters savearea
  1947. X    move.l    V_OFF_AD(A0),(A2)+
  1948. X    move.l    V_FNT_AD(A0),(A2)+
  1949. X    move.w    V_CEL_HT(A0),(A2)+
  1950. X    move.w    V_CEL_MY(A0),(A2)+
  1951. X    move.w    V_CEL_WR(A0),(A2)+
  1952. X
  1953. X
  1954. X    move.l    04(A1),A1        ; A1 -> 8x8 font header
  1955. X    move.l    76(A1),A2        ; A2 -> 8x8 font data
  1956. X    lea    fnt_8x10+0x100(A4),A3    ; A3 -> 2nd line of font buffer
  1957. X    move.w    #0x200-1,D0        ; D0 <- longword counter for font xfer
  1958. X
  1959. Xfnt_loop:
  1960. X
  1961. X    move.l    (A2)+,(A3)+
  1962. X    dbf    D0,fnt_loop
  1963. X        
  1964. X    movem.l    savea23(A6),A2-A3
  1965. X    }
  1966. X    
  1967. X}
  1968. X
  1969. Xset_40()
  1970. X{
  1971. X    long    savea23[2];
  1972. X    
  1973. X    asm {
  1974. X    
  1975. X;
  1976. X;  use the 8x10 character set: 40 line mode
  1977. X;
  1978. X
  1979. X    movem.l    A2-A3,savea23(A6)
  1980. X    
  1981. X    dc.w    LINEA_INIT
  1982. X
  1983. X    move.l    04(A1),A1        ; A1 -> 8x8 font header
  1984. X    move.l    72(A1),V_OFF_AD(A0)    ; v_off_ad <- 8x8  offset table addr
  1985. X    lea    fnt_8x10(A4),A2
  1986. X    move.l    A2,V_FNT_AD(A0)        ; v_fnt_ad <- 8x10 font data addr
  1987. X
  1988. X    move.w    #10,V_CEL_HT(A0)    ; v_cel_ht <- 10   8x10 cell height
  1989. X    move.w    #39,V_CEL_MY(A0)    ; v_cel_my <- 39   maximum cell "Y"
  1990. X    move.w    #800,V_CEL_WR(A0)    ; v_cel_wr <- 800  offset to cell Y+1
  1991. X
  1992. X    movem.l savea23,A2-A3
  1993. X    }
  1994. X}
  1995. X
  1996. Xset_20()
  1997. X{
  1998. X    long    savea23[2];
  1999. X
  2000. X    asm {
  2001. X        
  2002. X;
  2003. X;  use the 8x10 character set: 20 line mode
  2004. X;
  2005. X
  2006. X    movem.l    A2-A3,savea23(A6)
  2007. X    
  2008. X    dc.w    LINEA_INIT        ; A0 -> line A variables
  2009. X
  2010. X    move.l    04(A1),A1        ; A1 -> 8x8 font header
  2011. X    move.l    72(A1),V_OFF_AD(A0)    ; v_off_ad <- 8x8  offset table addr
  2012. X    lea    fnt_8x10(A4),A2
  2013. X    move.l    A2,V_FNT_AD(A0)        ; v_fnt_ad <- 8x10 font data addr
  2014. X
  2015. X    move.w    #10,V_CEL_HT(A0)    ; v_cel_ht <- 10   8x10 cell height
  2016. X    move.w    #19,V_CEL_MY(A0)    ; v_cel_my <- 19   maximum cell "Y"
  2017. X    move.w    #1600,V_CEL_WR(A0)    ; v_cel_wr <- 800  offset to cell Y+1
  2018. X    
  2019. X    movem.l    savea23,A2-A3
  2020. X    }
  2021. X}
  2022. X
  2023. X
  2024. Xrestore()
  2025. X{
  2026. X    long savea23[2];
  2027. X    
  2028. X    asm {
  2029. X    
  2030. X;  return what was saved in parameter save zone    
  2031. X
  2032. X    movem.l    A2-A3,savea23(A6)
  2033. X
  2034. X    dc.w    LINEA_INIT        ; a0 -> line A variables
  2035. X
  2036. X    lea    parm_save(A4),A2    ; a2 -> parameter save area
  2037. X    move.l    (A2)+,V_OFF_AD(A0)
  2038. X    move.l    (A2)+,V_FNT_AD(A0)
  2039. X    move.w    (A2)+,V_CEL_HT(A0)
  2040. X    move.w    (A2)+,V_CEL_MY(A0)
  2041. X    move.w    (A2)+,V_CEL_WR(A0)
  2042. X    
  2043. X    movem.l    savea23(A6),A2-A3
  2044. X    }          
  2045. X}
  2046. XGetCurStat(onoff)
  2047. Xint    onoff;
  2048. X{
  2049. X    long savea23[2];
  2050. X
  2051. X    asm {
  2052. X    movem.l    A2-A3,savea23(A6)
  2053. X
  2054. X    dc.w    LINEA_INIT        ; a0 -> line A variables
  2055. X    move.w    V_DISAB(A0),onoff(A6)    ; 0 = cursor visible
  2056. X    moveq    #0,D0
  2057. X    move.w    V_DISAB(A0),D0    
  2058. X    movem.l    savea23(A6),A2-A3
  2059. X    }          
  2060. X}
  2061. X#else
  2062. Xsthello()
  2063. X{
  2064. X}
  2065. X#endif
  2066. X
  2067. END_OF_st520.c
  2068. if test 10316 -ne `wc -c <st520.c`; then
  2069.     echo shar: \"st520.c\" unpacked with wrong size!
  2070. fi
  2071. # end of overwriting check
  2072. fi
  2073. echo shar: End of archive 4 \(of 14\).
  2074. cp /dev/null ark4isdone
  2075. MISSING=""
  2076. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 ; do
  2077.     if test ! -f ark${I}isdone ; then
  2078.     MISSING="${MISSING} ${I}"
  2079.     fi
  2080. done
  2081. if test "${MISSING}" = "" ; then
  2082.     echo You have unpacked all 14 archives.
  2083.     echo "See the readme file"
  2084.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  2085. else
  2086.     echo You still need to unpack the following archives:
  2087.     echo "        " ${MISSING}
  2088. fi
  2089. ##  End of shell archive.
  2090. exit 0
  2091.